COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE TVHACK
C00005 ENDMK
C⊗;
	TITLE TVHACK

	P←17

EXTERNAL SA,CTRL,META,TVDSKI,TVDSKO,TVXGP,TVCAMI,TVCLIP,GETFIL
EXTERNAL FILNAM,EXTION,PPPN,HTT

START:	SKIPA
	JRST RPGSA
	XCT SA
	OUTSTR[ASCIZ/
What TV camera do you want to use:
1 - Cohu Camera,   2 - Sierra Camera, 3 - Kintel Camera
Camera number: /]
	INCHRW 1
	CAIL 1,"1"
	CAILE 1,"3"
	JRST [OUTSTR[ASCIZ/Select from 0 - 3./]
	      JRST START ]
	DPB 1,[POINT 3,TVCLIP,26]
LOOP1:	OUTSTR[ASCIZ/
Command: /]
	INCHRW 1
	ANDI 1,137
	SETZM CTRL
	SETZM META
	CAIN 1,"C"
	JRST START
	CAIN 1,"E"
	EXIT
	CAIN 1,"I"
	JRST [ PUSHJ P,TVDSKI
	       JRST LOOP1 ]
	CAIN 1,"O"
	JRST [ PUSHJ P,TVDSKO
	       JRST LOOP1 ]
	CAIN 1,"X"
	JRST [ OUTSTR [ASCIZ/
/]↔	       PUSHJ P,TVXGP
	       JRST LOOP1 ]
	CAIN 1,"T"
	JRST [ SETOM META
	       PUSHJ P,TVCAMI
	       JRST LOOP1 ]
	CAIN 1,"H"
	JRST [ PUSH P,[SIXBIT/TMP/]
	       PUSH P,[SIXBIT/  2/]
	       OUTSTR[ASCIZ/ALF TONE FILE: /]
	       PUSHJ P,GETFIL
	       JRST LOOP1
	       INIT 17
	       SIXBIT/DSK/
	       0
	       HALT .	;I HATE TO DO THIS
	       LOOKUP FILNAM
	       JRST [ OUTSTR[ASCIZ/FILE NOT FOUND.
/]↔		    JRST LOOP1 ]
	       INPUT [IOWD 100,HTT↔0]
	       RELEASE
	       JRST LOOP1 ]
	CAIN 1,15
	INCHRW 1
	CAIN 1,12
	JRST LOOP1
	CAIE 1,"?"
	OUTSTR [ASCIZ/???
/]
	OUTSTR [ASCIZ/Type:
C - Select another camera
E - Exit
H - Read new half-tone table
I - Input TV picture file
O - Output TV picture file
T - Take a picture
X - Output TV picture to XGP
/]
	JRST LOOP1

RPGSA:	XCT SA
	MOVE [SIXBIT/XGPVID/]
	SETNAM
	MOVEM 14,FILNAM
	MOVEM 13,EXTION
	MOVEM 11,PPPN
	ADD P,[XWD 2,2]
	PUSHJ P,TVDSKI+1
	PUSHJ P,TVXGP
	EXIT
END START